********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

program huruf_vokal;
uses crt;
var
  c : char;
begin
clrscr;
  Writeln ('mencari huruf vokal');
  Write ('masukan c:'); Readln(c);
  If (c='a') or (c='i') or (c='u') or (c='e') or (c='o') then
  Writeln ('huruf vokal:',c);
readln;
end.